打开、保存和关闭图形 您所在的位置:网站首页 wps拆分单元格怎么弄 一分为三 打开、保存和关闭图形

打开、保存和关闭图形

2023-11-22 23:25| 来源: 网络整理| 查看: 265

previous page next page 控制 AutoCAD 环境 控制 AutoCAD 环境 设置 AutoCAD 系统配置   ActiveX/VBA 开发人员手册 > 控制 AutoCAD 环境 >  打开、保存和关闭图形      

通过 Documents 集合和 Document 对象可以访问 AutoCAD® 文件功能。

要创建新图形或打开现有图形,请使用 Documents 集合中的方法。Add 方法用于创建新图形并将此图形添加到 Documents 集合中。Open 方法用于打开现有图形。Documents 集合中的 Close 方法用于关闭 AutoCAD 任务中所有打开的图形。

Save 和 SaveAs 方法用于保存图形。有时候用户希望检查活动图形中是否存在未保存的更改。在退出 AutoCAD 任务或创建新图形之前,应当进行这样的检查。使用 Saved 特性可以确保当前图形中不包含任何未保存的更改。

要输入和输出图形,请使用 Document 对象的 Import 和 Export 方法。

打开现有图形

本例使用 Open 方法打开一个现有图形。并使用 VBA 中的 Dir 函数在打开文件之前检查该文件是否存在。用户应当更改图形文件的名称或路径,以指定用户的系统中的现有 AutoCAD 图形文件。

Sub Ch3_OpenDrawing() Dim dwgName As String dwgName = "c:\campus.dwg" If Dir(dwgName) "" Then ThisDrawing.Application.Documents.Open dwgName 否则 MsgBox "File " & dwgName & " does not exist." End If End Sub

创建新图形

本例使用 Add 方法根据默认模板创建新图形。

Sub Ch3_NewDrawing() Dim docObj As AcadDocument Set docObj = ThisDrawing.Application.Documents.Add End Sub

保存活动的图形

本样例首先用其当前名称保存活动图形,然后再用新名称保存该图形。

Sub Ch3_SaveActiveDrawing() ' 用当前名称保存活动的图形 ThisDrawing.Save ' 用新名称保存活动的图形 ThisDrawing.SaveAs "MyDrawing.dwg" End Sub

测试图形中是否存在未保存的更改

本例检查是否存在未保存的更改,并验证用户是否选择“确定”以保存图形(如果没有选择“确定”,跳至结尾处)。如果用户选择“确定”,将使用 Save 方法保存当前图形,如下所示:

Sub Ch3_TestIfSaved() If Not (ThisDrawing.Saved) Then If MsgBox("Do you wish to save this drawing?", _ vbYesNo) = vbYes Then ThisDrawing.Save End If End If End Sub 请将关于此页的评论发送给我们


【本文地址】

公司简介

联系我们

今日新闻

    推荐新闻

    专题文章
      CopyRight 2018-2019 实验室设备网 版权所有